home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / basic / Mildred.lha / lha / LandMap.lha / LandMap.ascii < prev    next >
Encoding:
Text File  |  1999-05-24  |  930 b   |  41 lines
  1. WBStartup
  2.  
  3. MBitmap 0,2240,60
  4. InitBank 0,2880*60,$10000 ; must clear!
  5. CludgeBitMap 0,2240,60,8,Bank(0)
  6. InitPalette 0,256
  7. LoadBitMap 0,"Land29.iff",0 ; try 3, 12, 14, 15, 19, 20, 21, 22, 23, 29, 31, 34, 36, 37, 38, 39
  8. MPlanar16ToBitmap 0,Bank(0),2240,60,2240,60
  9. MBitmap 1,2880,60
  10.  
  11. width.q=2240
  12. widthadd.q=(2240-320)/47
  13. For yy=46 To 0 Step -1
  14.   adder.q=2240/width
  15.   MZoom 0,yy,adder,1,320+1120-(width/2),yy,width,1,False,0
  16.   MScroll 321+(1120-(width/2)),yy,320,1,320+(1120+(width/2)),yy
  17.   MScroll 320+(1120+(width/2))-320,yy,320,1,320+(1120-(width/2))-319,yy
  18.   width-widthadd
  19. Next yy
  20. MScroll 0,47,2240,13,320,47,0
  21. MScroll 320,47,320,13,320+2240,47
  22. MScroll 2240,47,320,13,0,47
  23.  
  24. InitPalette 1,256
  25. Dim map.b(256)
  26. For c=0 To 63
  27.   map(c)=64+64+64+c
  28.   CopyColour 0,1,c,64+64+64+c
  29. Next c
  30. For c=64 To 255
  31.   map(c)=c
  32. Next c
  33. MReMap &map(0),1
  34.  
  35. Mc2pWindow 0,2880,60
  36. Mc2p Bank(0)
  37. CludgeBitMap 0,2880,60,8,Bank(0)
  38. SaveBitmap 0,"Land17.iff",1
  39. End
  40.  
  41.